home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Not Passing History.cpt / Not Passing History / background_3463.txt < prev    next >
Text File  |  1992-02-09  |  3KB  |  146 lines
  1. -- background: 3463 from stack: in
  2. -- bmap block id: 4274
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Carmina
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   CleanScreen
  9.   pass closeCard
  10. end closeCard
  11.  
  12.  
  13.  
  14. -- part 9 (field)
  15. -- low flags: 03
  16. -- high flags: 2000
  17. -- rect: left=40 top=46 right=293 bottom=258
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 203
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: 
  26.  
  27.  
  28. -- part 17 (field)
  29. -- low flags: 03
  30. -- high flags: 2000
  31. -- rect: left=271 top=46 right=293 bottom=486
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 203
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40.  
  41.  
  42. -- part 18 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=0 top=308 right=342 bottom=32
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 28961 / 28961
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: 
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   visual zoom in
  57.   go stack "library"
  58.   if result() is empty then
  59.   else
  60.     beep
  61.   end if
  62. end mouseUp
  63.  
  64.  
  65. -- part 19 (button)
  66. -- low flags: 00
  67. -- high flags: 2000
  68. -- rect: left=1 top=171 right=203 bottom=25
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 28957 / 28957
  71. -- text alignment: 1
  72. -- font id: 216
  73. -- text size: 9
  74. -- style flags: 0
  75. -- line height: 12
  76. -- part name: English
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   if the optionKey is down then
  80.     visual zoom open slow
  81.     go cd "Bar"
  82.   else
  83.     get last word of id of this cd
  84.     visual dissolve
  85.     if it is 5823 then go cd id 7997
  86.     if it is 5933 then go cd id 10504
  87.     if it is 2191 then go cd id 11791
  88.     if it is 8768 then go cd id 12473
  89.   end if
  90. end mouseUp
  91.  
  92.  
  93. -- part 20 (button)
  94. -- low flags: 00
  95. -- high flags: 2000
  96. -- rect: left=451 top=289 right=308 bottom=482
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 6720 / 6720
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Return
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   visual wipe right
  108.   go cd id 5823
  109. end mouseUp
  110.  
  111.  
  112. -- part 21 (button)
  113. -- low flags: 00
  114. -- high flags: 2000
  115. -- rect: left=229 top=283 right=308 bottom=254
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 15420 / 15420
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Prev
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   send "arrowkey left" to this cd
  127. end mouseUp
  128.  
  129.  
  130. -- part 22 (button)
  131. -- low flags: 00
  132. -- high flags: 2000
  133. -- rect: left=273 top=283 right=308 bottom=298
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 16560 / 16560
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Next
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   send "arrowkey right" to this cd
  145. end mouseUp
  146.